home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / contrib / zelk / Doc / changes-from-2.0.txt next >
Encoding:
Text File  |  1992-11-13  |  4.8 KB  |  179 lines
  1. This file is a description of the changes made in the Elk2.0 kernel.
  2.  
  3. The following files are changed:
  4. object.h, 
  5. load.c, main.c, proc.c, stab.c, type.c, math.c, 
  6.  
  7. BEWARE - The installation copies over these files in src/,
  8. and scm/toplevel!
  9.  
  10. Also note that the diff listings below are with respect to
  11. the Oct15/92 pre-release of elk2.0.
  12.  
  13. config/system================
  14.  
  15. The optional vector math file fvector.c must be compiled with an 
  16. ANSI compiler.  In the sun/cc version of config/system, config/zelk
  17. nevertheless tries to use gcc to compile this file.  
  18. Since gcc aligns on 8, the alignment in the sun/cc file is set to 8
  19. (otherwise calling fvector is not possible).
  20. One of the gcc authors told me that code runs faster on the sun
  21. when aligned on 8 in any case.
  22.  
  23. Object.h================================
  24. In the primitive structure add a new pointer which if non-null
  25. points to a foreign function argument description string;
  26. add new discipline FOREIGN:
  27. 127c127,131
  28. < enum discipline { EVAL, NOEVAL, VARARGS };
  29. ---
  30. > #if ZELK
  31. >  enum discipline { EVAL, NOEVAL, VARARGS, FOREIGN };
  32. > #else
  33. >  enum discipline { EVAL, NOEVAL, VARARGS };
  34. > #endif
  35. 134a139,141
  36. > #if ZELK
  37. >     unsigned char *forfunargs;  /* foreign function arguments */
  38. > #endif
  39.  
  40.  
  41. proc.c================================
  42. If the discipline is FOREIGN, call ZLforcall, passing everything
  43. and the new forfunargs string.
  44. 4a5,7
  45. > #if ZELK
  46. > # include <zelk.h>
  47. > #endif
  48. 222c225,232
  49. <     } else {
  50. ---
  51. >     }
  52. > # ifdef ZELK 
  53. >         else if (prim->disc == FOREIGN) {
  54. >             ret = ZLforcall(prim->name,(function *)prim->fun,prim->forfunargs,
  55. >                             argc,argv);
  56. >         }
  57. > # endif
  58. >         else {
  59.  
  60.  
  61. main.c================================
  62. in Init_Everything(), add a call to initialize the extensions last:
  63. 1a2
  64. > #include <zelk.h>
  65. 204a206,208
  66. > #endif
  67. > #if ZELK
  68. >     Init_Zelk ();
  69.  
  70.  
  71. type.c================================
  72. The foreign function argument specification uses T_Fixnum, etc
  73. (primitive->forfunargs is an array of T_codes).
  74. T_Returns is a new meta code indicating that the following T_code
  75. is the return type of the foreign function; T_End is a meta code
  76. indicating the end of the foreign function argument specification.
  77. T_Returns and T_End are allocated at the top of the type range- 254,255.
  78. The foreign function interface on the sgi also uses a code T_Double
  79. with the value 253.
  80. This change checks that Elk allocated types do not overrun 
  81. our meta-codes:
  82. 1a2,4
  83. > #if ZELK
  84. > # include <zelk.h>
  85. > #endif
  86. 78a82,91
  87. > 
  88. > #if ZELK
  89. >     /* the foreign function argspec uses 8bit ids, with 253,254,255
  90. >      * used as meta-codes such as T_Returns and T_End.
  91. >      * if more than 253 types, must extend the argspec to 16bits
  92. >      */
  93. >     if (t >= 253)
  94. >       Panic("type id > 253: extend foreign types > 8bits");
  95. > #endif
  96. > 
  97.  
  98.  
  99. stab.c================================
  100. Call_Initializers() looks for and calls init_XX routines in .o files.
  101. Modify this so that it also calls routines named PKGrtn_XX(),
  102. and passes the result on to Zforpkginit().
  103. The rationale for this is described in the tutorial.
  104. 4a5,7
  105. > #if ZELK
  106. > # include <zelk.h>
  107. > #endif
  108. 89c92,110
  109. <     }
  110. ---
  111. >         }
  112. > #ifdef ZELK
  113. > # ifdef SYMS_UNDERL
  114. > #  define FORLIB "_PKGrtn_"
  115. > #  define FORLEN 8
  116. > # else
  117. > #  define FORLIB "PKGrtn_"
  118. > #  define FORLEN 7
  119. > # endif
  120. >         /* load foreign libraries */
  121. >         if (strncmp(sp->name,FORLIB,FORLEN)==0) {
  122. >             PKG_type *pkgtab;
  123. >             /*printf("got forlib symbol :%s:\n",sp->name);*/
  124. >             pkgtab = (PKG_type *) ( (GENERIC (*)()) sp->value )();
  125. >             Zforpkginit(sp->name+FORLEN,pkgtab);
  126. >             got_one = 1;
  127. >         }
  128. > #endif /*ZELK*/
  129. > 
  130. 91c112
  131. <     }
  132. ---
  133. >       }
  134.  
  135. load.c================================
  136. Make these variables global - they are used in forpkg.c.
  137.    /*static*/ Object V_Load_Path, V_Load_Noisilyp, V_Load_Libraries;
  138.  
  139.  
  140. math.c================================
  141. This change is not part of the foreign function interface.
  142. 1a2,12
  143. >  * modified (zilla)
  144. >  * Elk math has several characteristics which are altered
  145. >  * as follows:
  146. >  *- (/ x y) when both x,y are integer is treated as if x,y are both
  147. >  *  real, e.g. (/ 5 3) => 1.6666.  Xscheme and Scm also act this way;
  148. >  *  vscm has (/ 5 3) => 1 (integer).
  149. >  *  ZELK_INTEGER_DIV changed this so that (/ 5 3) => 1 (as in C).
  150. >  *
  151. >  *- Real numbers equal to integers become integers, 
  152. >  *  e.g. (/ 6. 3.) => 2 (integer); (type 2.0) => integer
  153. >  *  ZELK_CONTAGIOUS_FLT makes floats 'contagious'.
  154. 7a19,20
  155. > #include <zelk.h>
  156. > 
  157. 121a135
  158. > #if (!ZELK_CONTAGIOUS_FLT)
  159. 128a143
  160. > #endif
  161. 477a493,495
  162. > # if ZELK_INTEGER_DIV
  163. >             return Make_Integer( FIXNUM(x) / FIXNUM(y) );
  164. > # else
  165. 478a497
  166. > # endif
  167. 507a527,529
  168. > # if ZELK_INTEGER_DIV
  169. >             return Car(ret);
  170. > # else
  171. 509a532
  172. > # endif
  173. 517a541,543
  174. > # if ZELK_INTEGER_DIV
  175. >             return Car(ret);
  176. > # else 
  177. 519a546
  178. > # endif
  179.